home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
GENELOGY
/
FAMHIST.LZH
/
GO.BAT
< prev
next >
Wrap
DOS Batch File
|
1991-05-24
|
2KB
|
83 lines
ECHO OFF
IF EXIST GO.BAT GOTO CHKOPT
ECHO The FHS distribution diskette must be in
ECHO the default drive.
ECHO :
GOTO ENDIT
:CHKOPT
IF %1?==? GO DISPLAY CLR INTRO COPYRITE OPTIONS
IF %1==DISPLAY GOTO DISPLAY
IF %1==OPTIONS GO DISPLAY CLR OPTIONS
IF %1==CONTENTS GO VIEW CONTENTS
IF %1==VERSIONS GO VIEW VERSIONS
IF %1==CHANGES GO VIEW CHANGES
IF %1==SAMPLE GO VIEW SAMPLE
IF %1==REGISTER GO VIEW REGISTER
IF %1==REGFORM GO PRINT REGFORM
IF %1==MANUAL GO DISPLAY CLR MANUAL
IF %1==VIEW GOTO MANUAL
IF %1==PRINT GOTO MANUAL
IF %1==INSTALL INSTALL %2 %3 %4
ECHO Option "%1" not recognised.
PAUSE
GO DISPLAY NOCLR OPTIONS
:DISPLAY
IF %3?==? GOTO ENDIT
IF %2?==CLR? CLS
IF EXIST %3.DOC TYPE %3.DOC
IF %4?==? GOTO ENDIT
PAUSE
GO DISPLAY CLR %4 %5 %6 %7 %8 %9
:MANUAL
IF %2?==CONT? GOTO NOINTRO
IF %1?==PRINT? GOTO PRTINTRO
CLS
IF NOT EXIST %2.DOC GOTO CONTDOC
TYPE BROWSE.DOC
PAUSE
CLS
GOTO CONTDOC
:PRTINTRO
IF %2?==MANUAL? GOTO PRTMANUL
IF EXIST %2.DOC GOTO CONTDOC
:PRTMANUL
CLS
TYPE PRINT.DOC
IF %2?==? GOTO ENDIT
PAUSE
:CONTDOC
GO %1 CONT %2 %3 %4 %5 %6 %7 %8
:NOINTRO
IF %3?==? GO OPTIONS
IF %3?==MANUAL? GO %1 CONT SECTION1 SECTION2 SECTION3 SECTION4 SECTIONB APENDIX
IF %3?==SECTIONB? GO %1 CONT SECTION5 SECTION6 SECTION7 %4 %5 %6 %7
IF %3?==APENDIX? GO %1 CONT APENDIXA APENDIXB APENDIXC APENDIXD APENDIX2
IF %3?==APENDIX2? GO %1 CONT APENDIXE APENDIXF APENDIXG REGFORM
:OKAY
IF %1==VIEW GOTO DISPDOC
:PRINTDOC
IF NOT EXIST %3.DOC GOTO ZIPRINT
ECHO Printing %3
COPY %3.DOC PRN:>NUL
ECHO Printing of %3 is complete
GOTO NEXTDOC
:ZIPRINT
PKUNZIP -P MANUAL %3.DOC
GOTO NEXTDOC
:DISPDOC
IF EXIST %3.DOC GOTO BROWSE
PKUNZIP -CM MANUAL %3.DOC
GOTO NEXTDOC
:BROWSE
BROWSE %3.DOC
:NEXTDOC
IF NOT %4?==? GO %1 CONT %4 %5 %6 %7 %8 %9
IF %3?==SAMPLE? GO OPTIONS
IF %3?==INSTALL? GO OPTIONS
IF %3?==REGFORM? GO OPTIONS
IF %3?==REGISTER? GO OPTIONS
IF %3?==VERSIONS? GO OPTIONS
IF %3?==CONTENTS? GO OPTIONS
GO MANUAL
:ENDIT